home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / c64 / utils / tbasic.arc / TB / TOKEN & VAR (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.4 KB  |  65 lines
  1. 0 REM TOKEN & VAR  (APRIL 7/85)  :
  2. 1 :
  3. 2 REM 0 STATEMENTS, 2 FUNCTIONS
  4. 3 :
  5. 4 REM KEYWORD CHARACTERS :11
  6. 5 :
  7. 6 REM KEYWORD  ROUTINE   LINE   SER#
  8. 7 REM TOKEN$(  TOKEN     6132   078
  9. 8 REM VAR(     VAR       6198   079
  10. 9 :
  11. 10 REM U/USFP (2620/006)
  12. 11 :
  13. 12 REM =================================
  14. 13 :
  15. 611 .ASC "TOKEN$":.BYTE $A8
  16. 612 .ASC "VAR": .BYTE $A8
  17. 2620 USFP LDX #0 ;ROUTINE TO CONVERT
  18. 2622 STX $0D     ;UNSIGNED INTEGER
  19. 2624 STA $62     ;IN .A(HIGH BYTE)
  20. 2626 STY $63     ;AND .Y(LOW BYTE)
  21. 2628 LDX $90     ;TO FLOATING POINT
  22. 2630 SEC         ;IN FAC #1
  23. 2632 JMP $BC49
  24. 2634 ;
  25. 6132 TOKEN JSR $B3A6 ;PROGRAM MODE ONLY
  26. 6134 JSR $AEF4 ;EVALUATE EXPRESSION
  27. 6136 JSR $B6A3 ;SET STRING PNTRS
  28. 6138 CMP #$59
  29. 6140 BCS TKN4 ;UP TO 88 CHARS
  30. 6142 TAY
  31. 6144 LDA #0 ;CLEAR .A AND .X
  32. 6146 TAX
  33. 6148 TKN1 STA $200,Y ;COPY STRING TO
  34. 6150 DEY             ;INPUT BUFFER
  35. 6152 LDA ($22),Y     ;WITH TERMINAL 0
  36. 6154 CPY #$FF
  37. 6156 BNE TKN1
  38. 6158 LDA $7A         ;PUSH CHRGET PTR
  39. 6160 PHA
  40. 6162 LDA $7B
  41. 6164 PHA
  42. 6166 PLA ;PULL CHRGET PTR
  43. 6168 STA $7B
  44. 6170 PHA
  45. 6172 STX $7A
  46. 6174 TYA ;CALC LENGTH OF
  47. 6176 SEC ;TOKENIZED LINE
  48. 6178 SBC #5
  49. 6180 JSR $B47D ;RESERVE STR SPACE
  50. 6182 TAY
  51. 6184 TKN2 DEY ;COPY TOKENIZED
  52. 6186 BMI TKN3 ;LINE TO STRING
  53. 6188 LDA $200,Y ;STORAGE
  54. 6190 STA ($62),Y
  55. 6192 BNE TKN2
  56. 6194 TKN3 JMP $B4CA ;SET UP DESCRIPTOR
  57. 6195 TKN4 JMP $B658 ;STRING TO LONG
  58. 6196 ;
  59. 6198 VAR JSR $B08B ;FIND VARIABLE
  60. 6200 LDY $47 ;LOAD POINTER
  61. 6202 LDA $48 ;TO DATA
  62. 6204 JSR USFP ;CONVERT TO FLOATING
  63. 6206 JMP $AEF7 ;CHECK FOR PAREN
  64. 6208 ;
  65.